|
|  Dial
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Dial"

  FLAGS ClickFly AnimateFly
  WIDTH 7 * CW
  HEIGHT 7 * CW + COH + CH
  PACKS 1
  ZEROTOWIN 52 - CARDSIN$1

| Tableau

|  1 o'clock
  STACK
    X CW * 4
    Y CW * 7 * 1 / 12 - CH * 1 / 12
    FIRST 1
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  2 o'clock
  STACK
    X CW * 5
    Y CW * 7 * 3 / 12 - CH * 3 / 12
    FIRST 2
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  3 o'clock
  STACK
    X CW * 6
    Y CW * 7 * 6 / 12 - CH * 6 / 12
    FIRST 3
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  4 o'clock
  STACK
    X CW * 5
    Y CW * 7 * 9 / 12 - CH * 9 / 12
    FIRST 4
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  5 o'clock
  STACK
    X CW * 4
    Y CW * 7 * 11 / 12 - CH * 11 / 12
    FIRST 5
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  6 o'clock
  STACK
    X CW * 3
    Y CW * 7 * 12 / 12 - CH * 12 / 12
    FIRST 6
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  7 o'clock
  STACK
    X CW * 2
    Y CW * 7 * 11 / 12 - CH * 11 / 12
    FIRST 7
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  8 o'clock
  STACK
    X CW * 1
    Y CW * 7 * 9 / 12 - CH * 9 / 12
    FIRST 8
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

|  9 o'clock
  STACK
    X CW * 0
    Y CW * 7 * 6 / 12 - CH * 6 / 12
    FIRST 9
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

| 10 o'clock
  STACK
    X 1 * CW
    Y CW * 7 * 3 / 12 - CH * 3 / 12
    FIRST 10
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

| 11 o'clock
  STACK
    X CW * 2
    Y CW * 7 * 1 / 12 - CH * 1 / 12
    FIRST 11
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

| 12 o'clock
  STACK
    X 3 * CW
    Y CW * 7 * 0 / 12 - CH * 0 / 12
    FIRST 12
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END

| 13 o'clock
  STACK
    X 3 * CW
    Y 3 * CW
    FIRST 13
    MAX 4
    JOINOFFSET 0
    DRAGUPTO 0
    FLAGS Join__DC PaintLast ClickFly
    ID 1
  END



| Stock

  STACK
    X 2 * CW + CW / 2
    Y 7 * CW + COH
    DEAL 51
    DEALTO 4,1
    TAKEFROM 4,2
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 2 * CW + CW / 2 + CW
    Y 7 * CW + COH 
    MAX 0
    DEAL 1,1
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
